unit U_FiltroPgto;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Mask, JvExMask, JvToolEdit, StdCtrls, Buttons, ExtCtrls,
  JvExExtCtrls, JvBevel, dxCore, dxButton, MMJPanel, u_FiltroFechamento;

type
  Tf_FiltroPagto = class(TForm)
    MMJPanel1: TMMJPanel;
    btnFiltro: TdxButton;
    btnSair: TdxButton;
    MMJPanel2: TMMJPanel;
    lbl11: TLabel;
    lbl3: TLabel;
    JvBevel1: TJvBevel;
    lbl4: TLabel;
    lbl5: TLabel;
    btn1: TBitBtn;
    edtProprietario: TEdit;
    cbbSituacao: TComboBox;
    JvDateEdit1: TJvDateEdit;
    JvDateEdit2: TJvDateEdit;
    edt1: TEdit;
    lbl1: TLabel;
    edtPlaca: TEdit;
    lbl2: TLabel;
    edtBatch: TEdit;
    lbl7: TLabel;
    edtComprador: TEdit;
    lbl8: TLabel;
    btn4: TBitBtn;
    dxButton1: TdxButton;
    procedure btn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnSairClick(Sender: TObject);
    procedure btnFiltroClick(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure dxButton1Click(Sender: TObject);
    procedure JvDateEdit1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_FiltroPagto: Tf_FiltroPagto;

implementation

uses uProcurar, UDm, uDmCitrus;

{$R *.dfm}

procedure Tf_FiltroPagto.btn1Click(Sender: TObject);
begin
  fProcurar:= TfProcurar.Create(self,dm.scds_forn_proc);
  try
    fProcurar.btnImprimir.Visible := true;
    fProcurar.RadioGroup1.Visible := true;
    dm.scds_forn_proc.Params.ParamByName('pStatus').AsInteger := 1;
    dm.scds_forn_proc.Params.ParamByName('pSegmento').AsInteger := 0;
    fProcurar.BtnProcurar.Click;
    fProcurar.EvDBFind1.DataField := 'NOMEFORNECEDOR';
    fProcurar.RadioGroup2.Visible := True;
    fProcurar.ShowModal;
    f_FiltroFechamento.vIDPROP := IntToStr(dm.scds_forn_procCODFORNECEDOR.AsInteger);
    edtProprietario.Text := dm.scds_forn_procNOMEFORNECEDOR.AsString;
  finally
    dm.scds_forn_proc.Close;
    fProcurar.Free;
  end;
end;

procedure Tf_FiltroPagto.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   // if (edtContrato.Text <> '') then
   //   f_FiltroFechamento.vCONTRATO := edtContrato.Text;
  //  if (edt1.Text <> '') then
      f_FiltroFechamento.vNPF := edt1.Text;
  //  if (JvDateEdit1.Text <> '  /  /    ') then
      f_FiltroFechamento.vDATA1 := JvDateEdit1.Text;
  //  if (JvDateEdit2.Text <> '  /  /    ') then
      f_FiltroFechamento.vDATA2 := JvDateEdit2.Text;
  //  if (cbbSituacao.Text <> '') then
      f_FiltroFechamento.vSTATUS := cbbSituacao.Text;
  //  if (edtBatch.Text <> '') then
      f_FiltroFechamento.vBATCH := edtBatch.Text;
  //  if (edtPlaca.Text <> '') then
      f_FiltroFechamento.vPLACA := edtPlaca.Text;
    if (edtProprietario.Text = '') then
      f_FiltroFechamento.vIDPROP := '';
    f_FiltroFechamento.vNomePROP := edtProprietario.Text;
    if (edtComprador.Text = '') then
      f_FiltroFechamento.vCOMPRADOR := '';
end;

procedure Tf_FiltroPagto.btnSairClick(Sender: TObject);
begin
  close;
end;

procedure Tf_FiltroPagto.btnFiltroClick(Sender: TObject);
begin
  close;
end;

procedure Tf_FiltroPagto.btn4Click(Sender: TObject);
begin
  fProcurar:= TfProcurar.Create(self,DmCitrus.buscaComprador);
  try
    fProcurar.BtnProcurar.Click;
    fProcurar.EvDBFind1.DataField     := 'NOMEFORNECEDOR';
    fProcurar.RadioGroup2.Visible     := True;
   if fProcurar.ShowModal=mrOk then
    begin
      f_FiltroFechamento.vCOMPRADOR := IntToStr(DmCitrus.buscaCompradorCODFORNECEDOR.AsInteger);
      edtComprador.Text             :=  DmCitrus.buscaCompradorNOMEFORNECEDOR.AsString;
    end;
  finally
    DmCitrus.buscaComprador.Close;
    fProcurar.Free;
  end;
end;

procedure Tf_FiltroPagto.dxButton1Click(Sender: TObject);
begin
  f_FiltroFechamento.vIDPROP := '';
  f_FiltroFechamento.vSTATUS := '';
  f_FiltroFechamento.vCONTRATO := '';
  f_FiltroFechamento.vNPF := '';
  f_FiltroFechamento.vDATA1 := '';
  f_FiltroFechamento.vDATA2 := '';
  f_FiltroFechamento.vCOMPRADOR := '';
  f_FiltroFechamento.vPLACA := '';
  f_FiltroFechamento.vBATCH := '';
  f_FiltroFechamento.vNomePROP := '';
end;

procedure Tf_FiltroPagto.JvDateEdit1Click(Sender: TObject);
begin
  JvDateEdit2.Date := JvDateEdit1.Date + 6;
end;

end.
